home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / GWU Demos / fourpieces.ada < prev    next >
Text File  |  1993-10-09  |  832b  |  31 lines
  1. WITH Text_IO;
  2. WITH Screen;
  3. PROCEDURE FourPieces IS
  4.  
  5. -- this program divides the screen into four pieces by drawing horizontal
  6. -- and vertical lines. The Screen package is used to position the cursor.
  7.  
  8. BEGIN
  9.  
  10.   Screen.ClearScreen;
  11.   
  12.   FOR Count IN Screen.Height LOOP
  13.     Screen.MoveCursor (To => (Row => Count, Column => 41));
  14.     Text_IO.Put (Item => '|');
  15.     Screen.MoveCursor (To => 
  16.       (Row => (Screen.ScreenHeight - Count) + 1, Column => 42));
  17.     Text_IO.Put (Item => '|');
  18.   END LOOP;
  19.   
  20.   FOR Count IN Screen.Width LOOP
  21.     Screen.MoveCursor (To => (Row => 12, Column => Count));
  22.     Text_IO.Put (Item => '-');
  23.     Screen.MoveCursor (To => 
  24.       (Row => 13, Column => (Screen.ScreenWidth - Count) + 1));
  25.     Text_IO.Put (Item => '-');
  26.   END LOOP;
  27.  
  28.   Screen.MoveCursor (To => (Row => 24, Column => 1));
  29.  
  30. END FourPieces;
  31.